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A  Branch-Level  Management  Program  for 
Assessing  Branch  Status  on  Projected  Surplus/Deficit 
and  Personnel  Utilization 


1.  Introduction 


Reference  1  describes  a  time-share  computer  program  used  by  the  Search 
Radar  Branch,  Radar  Division,  to  monitor  individual  projects.  That  program, 
written  in  Fortran  for  the  DEC- 10  computer  at  NRL,  is  called  MANAGE .FOR  and 
it  provides  an  extrapolation  of  project  spending  based  on  specified  person¬ 
nel,  major  procurements  and  other  routine  expenditures .  Its  principal  out¬ 
put  is  an  estimate  of  final  surplus/deficit  at  the  end  of  the  fiscal  year. 

The  purpose  of  the  time-share  computer  program  described  in  this  report, 
called  BRANCH. FOR,  is  to  collect  the  results  of  the  individual  runs  of 
MANAGE. FOR  from  each  project  and  provide  an  overall  Branch  summary  of: 

(1)  whether  the  available  funds  will  cover  the  Brarnch  manpower  funding 
requirements  for  the  remainder  of  the  fiscal  year 

(2)  whether  the  personnel  are  fully  assigned 

(3)  whether  there  is  a  projected  net  surplus  or  deficit  for  the  end  of 
the  fiscal  year,  including  labor  and  overhead,  planned  major  pro¬ 
curements  and  expected  other  routine  charges. 

2.  Review  of  Output  Format  of  the  Program  MANAGE. FOR 

Although  discussed  in  Reference  1,  the  output  format  of  MANAGE .FOR  is 
briefly  reviewed  here  for  completeness.  An  example  is  shewn  in  Fig.  1  for  a 
specific  project  n ushered  0646.  Program  milestones  are  first  printed  and 
then  the  operator  enters  the  month  and  day  (3,30)  when  tha  cosputer  run  was 
made.  After  that,  the  operator  enters  expenditures ,  obligations  and  encum- 
berances  to  date*  and  an  amovnt  called  "EXTRA"  which  covers  the  average  ex¬ 
pected  monthly  expenditure  in  the  future  for  routine  items  such  as  travel  and 
minor  procurements. 

After  the  above  sequence,  the  program  asks  the  operator  if  the  run  is 
only  to  date  Branch  summary  data  (in  the  program  BRANCH. FOR)  or  if  further 
output  data  is  to  be  printed  in  the  current  run.  In  this  run,  the  operator 
answered  the  question  UPDATE  ONLY?  with  a  0  (for  NO) .  The  subsequent  graph 
shows  a  plot  of  actual  expenditures ,  obligations  and  encusberances  up  to  the 


*  Obtained  from  Job  Order  Status  Reports  (JOSR's  distributed  by  the  NRL 
Budget  Office. 

Manuscript  rabmitud  October  30, 1980. 
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.EX  MANAGE .  FAR  •  R  Of>  4A .  FOR 
LINK!  LOADING 
CLNKXCT  MANAGE  FXECNTI0N1 

LIST  OF  MILESTONES?  YES-t-NO-D 
I 

1.  INSTALL  KA-BAND  HORN  ON  HRRM  FOR  WIDE  HNGLE  SINGLE-BEAM  MEM  SUREMEN  T  S  •As  i>f'  VU> 

£.  PERFORM  KA-BAnD  MEASUREMENTS  MV  REQUIRED  • MAY- SEP | . 1  4*ij> 

3.  RECEIVE  A  =14  1 5HZ  RADAR  *•  PLACE  IN  OPERATION  <V  JiJ'ViJ;  f 

4.  PERFORM  44  GHZ  MEASUREMENTS  MS  REQUESTED  •: JUNE-SEPT • t WAU • 

INPUT! PRESENT  DATE — M. D 

3.3O 

INPUT! EXPEND* OBI. I A. -ENCUMB. -EXTRA 
37t 0*  0- 1  DO 

UPDATE  ONLY?  YES-t-NO-O 
0 

GRAPH?  YES-t  -NO-0 
t 


♦-BU0GET  FUNDING*  .-PLANNED  SPENDING 
♦-AVAILABLE  FUNDS*  0-EXPEND,  *  COMMIT. 

4440*5.  ♦♦♦♦♦♦♦♦♦♦♦♦♦ 


0,-R  0  0  0  0  0 

A  10  11  13  l  3  3  4  3  *»  7  *  4 

Fig.  1  —  Sample  output  format  of  the  program  MANAGE.FOR  as  run  for  project  0646 
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LIST  OF  MAJHR  ppnCUREMENTS?  YES*t«NO=i'i 
t 


t.  34“<5HZ  NW5NFTRDN  <3»  30*  *50>  ~’*'f2UK 

PROJECT  STAFFS  VES*1.NCI*0 
t 

1. 1 C I  TPA  < .  1 2>  .  J .  WARD  < .  t  %>  •  P .  WARD  v .  o%> 


LIST  OF 

1 

NUMERICAL  VALUES 

ON  i5RAPH"'  YE  : 

1*1 • N0=0 

MO, 

* 

• 

+■ 

0 

<3 

4440*5. 

0. 

4440%. 

0. 

10 

4440%, 

2034, 

4440%. 

0, 

It 

4440%. 

4033. 

4440%. 

0, 

12 

4440%, 

31  01. 

4440%. 

0, 

1 

4440%. 

313%, 

4440%. 

0. 

4440%. 

10134, 

4440%. 

*%33. 

3 

4440%, 

12203. 

4440%. 

87t  7 , 

4 

4440%, 

14233. 

4440%. 

10448. 

% 

4440%. 

13270. 

4440%, 

12178, 

3 

4440%, 

13304, 

4440%, 

13303. 

7 

4440%. 

20333, 

4440%. 

1%333, 

3 

4440%, 

42371. 

4440%. 

37370. 

3 

4440%. 

4440%. 

4440%. 

'331  00, 

END  OF  EXECUTION 

CPU  TIME:  13,73  ELAPSED  TIME:  4:40,33 
EXIT 


Fig.  1( Continued)  —  Sample  output  format  of  the  program  MANAGE.FOR 

at  run  for  project  0646 


DAI. 


44405, 
4440%. 
4440%, 
4440%. 
4440%. 
3%8  0% . 
3*5333 . 
333%?, 
32227. 
30443. 
23733. 
7  03%, 
%30%. 


run  date,  and  predicted  expenditures  thereafter  (curve  made  up  of  the  symbol 
"0") .  The  prediction  includes  true  labor  rates  actually  charged  for  the  GS 
levels  of  personnel  assigned  to  the  project. 

Next  on  the  output  format  is  a  list  of  major  procurements ,  with  name  of 
expected  expenditure ,  date  and  amount.  This  is  followed  by  a  listing  of  as¬ 
signed  personnel  with  fraction  of  time  on  the  job.  The  final  table  is  a 
listing  of  the  plotted  values  on  the  graph,  with  the  right-hand  BAL  (balance) 
column  being  the  difference  between  expected  available  funds  (+  curve)  and 
predicted  expenditures  (0-curve) .  The  final  number  in  the  lower  right-hand 
comer  of  this  table  is  the  projected  surplus  (if  positive)  or  deficit  (if 
negative)  for  this  particular  project.  This  number  is  stored  in  a  file  called 
SUR.DAT  as  a  vector  S(I),  where  I  is  a  job  number  assigned  to  this  project 
0646.  In  addition  to  this  storage  in  the  SUR.DAT  file,  the  assigned  man¬ 
power  (fraction  of  time)  is  stored  in  a  file  TIME . DAT  in  the  form  of  a  matrix 
T(I,J) ,  where  I  is  in  identification  number  assigned  to  each  person  and  J  is 
a  project  nunber. 

3.  Sample  Output  of  Program  BRANCH. FOR 

A  sample  output  from  a  run  of  BRANCH. FOR  is  shown  in  Fig.  2.  The  pro¬ 
gram  first  asks  for  the  BALANCE  remaining  for  the  Branch  as  a  whole  (taken 
from  Job  Order  Status  Reports  supplied  by  the  NRL  budget  office) .  The  pro¬ 
gram  then  asks  for  the  nunber  of  months  remaining  in  the  fiscal  year  (in  this 
case,  6) .  The  program  then  computes  the  absolute  minimum  amount  needed  to 
cover  staff  manpower  alone.  This  is  done  by  using  salary  data  stored  in  a 
file  called  PSAL.DAT  via  a  vector  PS(I),  where  I  is  a  personnel  identificaticn 
number.  This  8»l8zy  data  is  weighted  by  a  vector  w(I) ,  where  I  is  again  a 
personnel  identification  number.  W(I)  is  a  weight  between  0  and  1  representing 
availability  of  a  particular  person  for  the  remainder  of  the  fiscal  year. 

For  exanple,  if  a  man  is  temporarily  assigned  outside  of  the  Branch  (e.g.,  as 
an  NSAP  representative) ,  his  weight  would  be  0.  The  next  item  printed, called 
SURPLUS,  is  the  excess  of  the  current  balance  over  the  amount  needed  for  the 
staff.  Note  that  procurements,  travel,  etc.  have  not  yet  been  taken  into 
account  although  overhead  charges  have  been  included. 

The  next  listing  in  the  output,  labeled  "MAN  FRACT,"  gives  the  identifi¬ 
cation  number  of  an  individual  and  the  total  fraction  of  time  he  has  been 
assigned  to  all  jobs.  In  some  cases,  a  mam  may  work  part-time  and  a  fraction 
less  than  1  is  normal  for  him;  in  other  cases,  a  low  fraction  indicates  that 
he  has  not  been  fully  assigned.  Foilowing  the  table,  the  SUM  of  all  fractions 
is  given  (73.37  in  this  run).  The  indicated  discrepancy  implies  that  all  of 
the  manpower  in  the  Branch  has  not  been  fully  accounted  for  in  the  individual 
project  runs  by  MANAGE .FOR.  Specifically,  the  funding  must  actually  cover 
24.95  man  years  plus  any  personnel  being  funded  outside  the  Branch  who  have 
not  been  accounted  for  by  an  identification  nusber.  Any  projected  surplus 
(estimated  later  in  the  rut)  should  be  decreased  by  the  cost  of  such  person¬ 
nel  unaccounted  for. 

The  subsequent  table  in  Fig.  2  is  a  breakdown  of  the  staff's  assigned 
time,  by  both  personnel  identification  numbers  and  job  numbers  (note  that  a 
man  may  be  assigned  to  several  projects) . 
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r..:  ? RANCH. FQR 

LUtt  :  LOADING 

Cl.ftt.XCT  BRANCH  EXECUTII3N1 

INPUT:  BALANCE 
1 148900 

INPUT:  NO.  QF  MONTHS  REMAINING 


CURRENT  BALANCE*  1148900. 

AMT.  NEEDED  FOR  STAFF*  859185, 


SURPLUS*  2*9715. 


MAN  FPACT, 


l  2  3  4  5  6  7  *  910 


.66 

i 

.  00 

,78 

t.  00 

.  00 

,35 

1.00 

.6? 

,38 

.99 

It 

1,00 

12 

t.  00 

13 
.  89 

14 
.  00 

15 
.  00 

16 

t,  00 

17 

1. 00 

18 

.31 

19 

1,00 

20 
l.  00 

21 

t,  12 

22 
t.  02 

23 

,99 

24 
t.  00 

25 
.  00 

26 
.  00 

27 

.66 

28 
t.  00 

29 

.75 

30 

.49 

3t 

32 

33 

34 

35 

36 

37 

38 

39 

40 

.93  ,56  1.05  .77  .00  .00  ,00  .00  .00  .00 


SUM*  23.37  SUM  SHOULD  BE*  24,95  PLUS  PERSONNEL  OUTSIDE  BRANCH 

PRINT  BREAKDOWN?  YES*t«NO*0 
1 


MAN 

JOB 

FRACT 

1 

9 

.44 

t 

It 

.22 

3 

13 

.78 

4 

4 

1.00 

6 

1 

.13 

6 

tt 

.22 

7 

2 

.49 

7 

9 

.38 

7 

ll 

.  13 

Fig.  2  —  Staple  output  format  of  program  BRANCH.FOR 
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JOB  SURPLUS 

1 

■“38883. 

3 

10417, 

3 

5013, 

4 

-30388. 

5 

5313. 

8 

79333, 

7* 

5753. 

3 

3308. 

9 

-18998, 

10 

33103. 

It 

-51088. 

13 

5305. 

13 

-8813. 

14 

0. 

15 

0. 

18 

0. 

1? 

0. 

18 

0. 

19 

0. 

30 

0. 

SUM*  137055, 


STfiFF  ID  LIST7  YES*1.NO*0 
t 

t,  NORMS.  3,  TITUS.  3.  BNRRY.  4,  BORCHNROT  5.  BRINSON 

8,  J.L.WNRD*  7,  CR l SIJER.  3,  CROSS.  9.  MS t NO  10,  801 T 

tl,  HR I LEY«  13,  HMRRER.  13,  HOWMRD  14,  XXXXXX.  1%,  XXXXXXX 

t8,  LINDE.  17.  l.lPkft  t8.  MNRINOS.  19,  MNYS.  30,  MENDS 

31,  MEIXNER  33,  ORNSTEIN*  33,  PlERNlfc.  34,  RNQ.  35,  KNLU3IENSKI 

38,  LEITCH.  37,  THIEBNUD.  38,  THOMPSON.  39,  THRIFT.  30,  PINION 

31,  MHLTEPS.  33,  P.  MNRD»  33,  J.  H,  I.IHRD.  34,  WNTERS*  35,  TEMES 

JOB  ID  LIST?  YES*t»NO=0 
1 

I,  R0880»  3,  R0837.  3,  R0838.  4,  R0814.  5,  R0877 

8,  R0815*  7.  R0844.  3,  R0843.  9.  R0840*  10,  R088t 

II,  R0841 .  13,  ROOOO*  13.  R0845 

END  OF  EXECUTION 

CPU  TIME:  5,40  ELNPSED  TIME:  3:39,58 
EXIT 

Fig.  2(Continued)  —  Sample  output  format  of  program  BRANCH.FOR 
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Next  there  is  a  table  preceded  by  the  heading  "JOB  SURPLUS".  This  is 
a  listing  of  projected  surplus  or  deficit  by  job  number,  as  stored  in  the 
file  SUR.DAT  by  the  individual  project  runs  of  MANAGE .FOR.  This  table  is 
followed  by  the  algebraic  sum,  indicating  whether  there  is  a  projected  net 
surplus  or  deficit  for  the  Branch  as  a  whole.  This  has  to  be  weighed 
against  any  time  deficit  in  assigned  personnel,  as  mentioned  above. 

The  next  table  in  the  readout  associates  each  personnel  identification 
number  with  a  person  in  the  Branch,  by  name. 

Finally,  a  table  is  given  showing  the  computer-program  job  numbers  in 
terms  of  NRL  project  numbers. 

A  listing  of  the  program  is  given  in  the  Appendix. 
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APPENDIX 


Listing  of  BRANCH. FOR 


TYPE  BRftNCH. FOR 

0 0 1  0 0  0 I  MENS  ION  W<35>  «PS  (  35 ; 

00300  DIMENSION  Tt40«30> 

0  03 10  01 MENS I ON  S  <  3  0) 

00300  DIMENSION  INOdO) 

00400  DO  100  I  =  t  *3*5 

00*500  100  W<t)=l. 

00600  W(l>=0.  S  W(18)=0.«  W < 35)  * .  75 

00?00  W<36>*0.  t  W<35)*.iiS  Wc.3>*0. 

007t  0  W <9>  *0.  »  W  <5)  *0.  » W  <  15)  *0.  »  W (30)  =0. 

00730  W  <14)  *0. 

00800  OPEN  < UNI T*3t . DEVICE*'  DSk' .FILE*'  PSftL,  081 '  •  ftCCESS*'  SEWIN'  ) 

00800  REftD(3t  » l)  (PSd).  1*1*35) 

OtOOO  l  FORMftT  (35F5. 0> 

0 1 1 00  CLOSE  OJN I T*3 1 .  OEV ICE*'  OSk. '.FI I.E* '  PSftL ,  OftT  '  ) 

OtSOO  SUMR*0. 

0I3I0  SUMW*0. 

0t300  00  110  1*1.35 

0 1 3 1 0  SUMW*SUMW+W  < I ) 

ot40o  no  sumr*sumr+w < i > ♦ps < i > 

0t500  R*SUMR^45/t3 

01600  WRITE  (5.3) 

0t700  3  FOPMftT (IX*' INPUT:  BftLftNCE') 

01800  ftCCEPT+.Bftl. 

01900  WRITE <5. 4) 

03000  4  FORMftT  OdX.' INPUT:  NO.  OF  MONTHS  REMR1NIN6) 

03 tOO  ftCCEPT^.FM 

03300  USE*R*FM 

03300  5UR=BftL  —USE 

03400  WRITE <5. 5)  JBftL.USE 

03500  5  FORMftT  <nx. 'CURRENT  BftLftNCE*' .Ft  0.  O.-'/tX.  ftMT, 

03600  l  NEEDED  FOR  STftFF*' .FtO. 0> 

03700  WRITE  (5.7)  SIJP 

03800  7  FORHftT  (/'dX.  '  SURPLUS*'  .Ft  0.  0) 

03900  OPEN (UN I T*3l. DEV ICE*' OSk' .FILE*' TIME. DftT' .ftCCESS*' SEQIN  ) 

03000  REftD  (31*8)  (  <  T  ( I »  J)  *  J*  t  *  3  0)  •  l  *  t »  40) 

03100  8  FORMftT (800F4.3) 

03300  CLOSE (UNIT*31 »  DEVICE*' DSk ' .FILE*' TIME. DrtT' ) 

03300  FSUM*0. 

03400  DO  t30  1*1.39 

03500  SUMT-0. 

03600  DO  t30  J»l » 19 

03700  SUMT*SUMT*T(I.J) 

03800  1-30  T(  1.30) -SUNT 

03900  WRITE (5. 9) 

04000  8  FORMftT  (/'^'SX.  'MftN'  «5X. '  FRftCT.  '  > 

04100  DO  3t 0  k*l.4 

04300  DO  4t  0  L*t • 1 0 

04300  4t  0  IND(L>*L+(k-t)*tO 

04400  WRITE (5. 3t)  < IND < l) . 1*1 . t 0) 

04500  31  FORMftT  </'/lX*10<I3»4X>) 

04600  WRITE (5. 33)  <T< IND( l) »30>  « l*t » 1 0) 

04700  33  FORMftTtlX. tO<F4.8,3X)) 

04800  310  CONTINUE 


049  00 

OH  130  1*1.40 

05000 

F  3UM*FSUM+T  <  l  *  2U> 

05 1  00 

1 3n 

CONTINUE 

05200 

t.iP  I  TE  <  5  •  2 1 .)  F  ;:i JM «  SUMM 

05?  00 

21 

FORMAT  < // 1 X » -  SUM*  *F6.2*5X*  "  SUM  SHOULD  BE-- 

053 1  0 

1  PERSONNEL  OUTS  TOE  BRANCH  > 

054  0  0 

MR I TE  <  5« 13) 

05500 

13 

FORMAT  (^IX.  'PRINT  BREAK  OQi.iN?  YES*1 *NO=0  ) 

05*00 

ACCEPT*. IANS 

05700 

t f a rns . eo . i >  call  print  ct> 

05800 

WRITE  (5.15;> 

05900 

15 

FORMAT (VlX*  "SURPLUS  LIST?  YES-1  »NO— U'  :• 

06000 

ACCEPT*.  IANS 

06100 

i  f  <:  i  ans  ,  e« ,  o>  on  to  1 4  o 

06 1 1  0 

WRITE <5. 61) 

06120 

61 

FORMAT  C///1X.  '  .JOB '  .  4X.  '  SURPLUS'  > 

06130 

OPEN  CUN IT-21* DEV I CE = ' DSk '.FILE*' SuR , DA I ' *  AC 

06140 

READC21  *  71.)  <SCl).  1*1*20) 

06150 

71 

FORMAT  (.20F9.  0> 

06200 

DO  150  K-l.4 

06300 

00  151  L-t  *5 

06400 

151 

I  NO  CL)  *».*  Ck  - 1  )  *5 

06500 

WRITE <5*4t>  ciNOcI.) « l  =  t*5> 

06600 

41 

FORMAT  •:  1 X  .  5  <  1 2  *  9X)  ) 

06700 

WR I TE  <5 *  42)  CS  < I NO  < I )  >.1*1.5) 

06800 

42 

FORMAT  CtX. 5  CF8. 0* 3X> ) 

06900 

t50 

CONTINUE 

07000 

140 

continue 

07001 

SUM-O. 

07002 

DO  300  1*1*20 

07003 

300 

SUM-SUM+S < I > 

07004 

WRITE C5*52>  SUM 

07005 

52 

F0RMAT</'V1X*  'SUM*'  *F10,  0-0 

07010 

CLOSE  CUN l T-2 1  * DEV ICE-' DSK ' »  F I LE* ' SUR  .DAT  > 

07100 

WRITE C5*tl> 

07200 

1 1 

FORMAT (>  IX* '  STAFF  10  LIST?  VES*l • NU*0' ) 

07300 

ACCEPT ♦» IANS 

07400 

l F  C l ANS . EC. 1)  CALL  S T AFF 

07500 

WRITE <5. 12) 

07600 

12 

FORMAT <VIX« '  JOB  ID  LIST?  YES»l*N0*0') 

07700 

ACCEPT** IANS 

07300 

IF  CIANS.E9, 1)  CALL  JOBS 

07900 

END 

08000 

SUBROUTINE  PRINT <T) 

08100 

DIMENSION  T  (.40*20) 

08200 

WRITE <5* 2) 

08300 

2 

FORMAT  <>v2X* '  MAN'  «  3X*  JOB'  *  3X*  '  FRACT  . '  /> 

08400 

DO  100  1-1*40 

08500 

DO  100  J— l *19 

08600 

IF  (T  <  I .  ,J>  ,  ijT.  0.  )  WRJTEc5*l)  I  *  J*  T  C  l  •  J> 

08700 

1 

FORMAT C IX* 14* 5X« I4*3X«F4,2) 

08800 

too 

CONTINUE 

•  F  6 .  2  •  •’  PIJJ 


CESS*'  SEWIN' 


14 


03900  RETURN 

09000  END 

09100  SUBROUTINE  STAFF 

09300  WRITE  <5* 1) 

09300  1  FORMAT  O'  l  X  *  '  1 .  ADAMS »  3.  TITUS*  3.  BARRY  *  4.  BORCHARDT 

09400  t  5.  BRINSON'-' IX* 'A,  J.L.WARD*  7,  CRISLER*  3,  CROSS*  9.  HSIAO 

09500  3  10.  KOTT'-'IX*  '11.  HAILEY*  13,  HARPER*  13.  HQWhRD 

098  00  3  14.  XXXXXX «  15.  XXXXXXX ' / 1 X » ' 1 3 .  LI  NOE »  1 7 ,  L l PKA 

09700  4  13.  MARINOS*  19.  MAYS*  30.  MEADS' -'  IX*  31.  MEIXNER 

09800  5  33.  ORNSTETN*  33.  RIERNIK*  34.  RAO*  35,  KAIJJZIENSKI ' ' IX* ' 33, 

09900  6  LEITCH*  37.  TH1EBAUD*  38,  THOMPSON*  39,  THRIFT. 

tOOOO  7  30.  PINION' /'IX* '31*  WALTERS*  33.  P,  WARD*  33.  J.  A.  WARD* 

lOt  00  8  34.  WATERS*  35.  TEMESO 

10300  RETURN 

10300  END 

10400  SUBROUTINE  JOBS 

10500  WRITE <5* 1> 

10800  1  FORMAT  O' t X • ' 1 .  R0880*  3.  R0837.  3.  R0838*  4.  R0814* 

1 0700  t  5.  R0677  -VIX* " 8.  P0815*  7.  R0*44.  8.  R0843*  9.  R0840* 

10800  3  tO,  R088t'-'IX*  'It*  R0841  *  13.  R0000*  13,  R0845  J 

11 000  RETURN 

11 100  END 


